home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / cai205.zip / MENU.CAI < prev    next >
Text File  |  1991-07-17  |  1KB  |  52 lines

  1. .rem    This is an example of using the @CASE command to create a menu
  2. @LABEL:BEGIN
  3. .screen 0
  4. .color 15,1
  5. .cls
  6. .color 15,4
  7. .locate 10,1
  8. @CASE(*ABCD:PCX,ANIM,MOVE,END*) center border shadow
  9.   A - Show A Sample PCX Graphics File
  10.   B - Show a Sample Animation
  11.   C - Show Sample Move
  12.   D - End This Program
  13. @END
  14. .pause
  15. @LABEL:PCX
  16.  
  17. .screen 1
  18. .cls
  19. .pcx testpcx.pcx 1,2
  20. .locate 24,1
  21. .pause
  22. @GOBACK:BEGIN
  23. @LABEL:ANIM
  24. .SCREEN 1
  25. .cls
  26. .locate 20,1 (*Example Animation*)
  27. .line (1,130)-(155,95)
  28. .line (155,95)-(315,130)
  29. .line (1,130)-(315,130)
  30. .LOAD RUNNER1,RUNNER2,RUNNER3,RUNNER4
  31. .rem ------------fix stepy for fractions , negatives
  32. .ANIMATE (1,100)-(150,60) STEPX=4 STEPY=-1 PAUSE=.1
  33. .ANIMATE (150,65)-(300,130) STEPX=4 STEPY=1 PAUSE=.1
  34. .locate 20,1 (*                              *)
  35. .locate 20,1
  36. .pause
  37. @GOBACK:BEGIN
  38. @LABEL:MOVE
  39. .screen 1
  40. .cls
  41. .locate 20,1(*Example Moving Single Image*)
  42. .get beetle
  43. .move (1,100)-(250,100)
  44. .locate 20,1 (*                            *)
  45. .locate 20,1
  46. .pause
  47. @GOBACK:BEGIN
  48. @LABEL:END
  49. .locate 24,1
  50. .pause (*Press Enter to End this Program:*)
  51. @STOP menu
  52.